home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Yerk 3.6.6 / Module source / about next >
Encoding:
Text File  |  1994-03-21  |  1.3 KB  |  47 lines  |  [TEXT/YERK]
  1.  
  2. :MODULE aboutMod
  3.  
  4. // pictures
  5.  
  6. picture eye
  7.  
  8. : blue 409 call forecolor ;
  9.  
  10. scon about0 "    formerly Neon by Kriya"
  11. scon about1 " Maintained by R. F. Loewenstein"
  12. scon about2 " Dept. of Astronomy & Astrophysics"
  13. scon about3 " University of Chicago"
  14. scon about4 " Yerkes Observatory"
  15. scon about5 " Williams Bay, WI  53191
  16. scon about6 " 414-245-5555"
  17. scon about7 " rfl@yerkes.uchicago.edu
  18.  
  19. : .about blue 0 getres YERK >ptr count bl emit type cr
  20.      about0 type cr cr
  21.      about1 type cr about2 type cr about3 type cr about4 type cr
  22.     about5 type cr about6 type cr about7 type ;
  23.  
  24. : centerTemp { dx dy \ r b -- } screenBits 20 - -> b  -> r 2drop    \ take menubar height
  25.     r dx - 2/                \  get left
  26.     b dy - 2/ 10 +            \  get top
  27.     over dx +
  28.     over dy + put: temprect ;
  29.  
  30. \ bits/pixel for device
  31. : b/pix/dev ( hndl -- n)  >ptr 22 + @ >ptr 32 + w@ ;
  32.  
  33. : getDevPix ( -- n) 0 call getMainDevice b/pix/dev ;
  34.  
  35. : about  { \ hwind -- } " aboutMod.bin" openresfile
  36.     heap> window -> hwind
  37.     410 124 getDevPix 2 > IF 45 + THEN centerTemp
  38.     temprect "  " dlgwind true false new: hwind
  39.      select: hwind -curs
  40.     2 5 getDevPix 2 >  1000 + disp: eye
  41.     -190 0 >origin
  42.     home .about
  43.     waitclick 6 (flush)  close: hwind     \ flush any key or mouse events so we don't
  44.      dispose> hwind 0 tmode 0 tface ;    \ switch out of app when window closes
  45.  
  46. ;MODULE
  47.